﻿Public Class frmCadastroEmpregador
    Private emp As New _empregador
    Private Sub setEmpregador()
        With emp
            ' .idEmpregador = txtIdEmpregador.Text
            .nmEmpresa = txtNmEmpresa.Text
            .edCompleto = txtEndereco.Text
            .nmProprietario = txtNmProprietario.Text
            .nuTelefone1 = txtTelefone1.Text
            .nuTelefone2 = txtTelefone2.Text
            .nutelefone3 = txtTelefone3.Text
            .nuCEICNPJ = txtCEICNPJ.Text
            .nmContato = txtContato.Text
            .emContato = txtEmail.Text
        End With

    End Sub

    Private Sub getEmpregador()
        With emp
            txtIdEmpregador.Text = .idEmpregador
            txtNmEmpresa.Text = .nmEmpresa
            txtEndereco.Text = .edCompleto
            txtNmProprietario.Text = .nmProprietario
            txtTelefone1.Text = .nuTelefone1
            txtTelefone2.Text = .nuTelefone2
            txtTelefone3.Text = .nutelefone3
            txtCEICNPJ.Text = .nuCEICNPJ
            txtContato.Text = .nmContato
            txtEmail.Text = .emContato
        End With
    End Sub

    Private Sub limpaFormEmpregador()
        txtIdEmpregador.Text = ""
        txtIdEmpregador.Text = ""
        txtNmEmpresa.Text = ""
        txtEndereco.Text = ""
        txtNmProprietario.Text = ""
        txtTelefone1.Text = ""
        txtTelefone2.Text = ""
        txtTelefone3.Text = ""
        txtCEICNPJ.Text = ""
        txtContato.Text = ""
        txtEmail.Text = ""
    End Sub
    Private Sub btnAlterar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlterar.Click

        setEmpregador()
        emp.alteraEmpresa(txtIdEmpregador.Text)
        MsgBox("Dados do empregador, alterados com sucesso")

    End Sub

    Private Sub btnInserir_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInserir.Click

        setEmpregador()
        txtIdEmpregador.Text = emp.insereEmpresa()
        MsgBox("Empregador inserido com sucesso")

    End Sub

    Private Sub btnConsultar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsultar.Click

        Dim j As New frmConsultaEmpregador
        limpaFormEmpregador()
        If j.ShowDialog = Windows.Forms.DialogResult.OK Then
            emp.consultaEmpregadorPorId(j.idEmpregador)
            getEmpregador()
        End If
    End Sub


    Private Sub mudaCorTextBoxAoReceberFoco(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelefone2.Enter, txtTelefone1.Enter, txtEmail.Enter, txtNmEmpresa.Enter, txtTelefone3.Enter, txtNmProprietario.Enter, txtEndereco.Enter, txtContato.Enter, txtCEICNPJ.Enter, MyBase.Enter

        Dim c As Control = DirectCast(sender, Control)
        c.BackColor = Color.LightBlue

    End Sub

    Private Sub mudaCorTextBoxAoSairDoFoco(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelefone2.Leave, txtTelefone1.Leave, txtNmEmpresa.Leave, txtEmail.Leave, txtTelefone3.Leave, txtNmProprietario.Leave, txtEndereco.Leave, txtContato.Leave, txtCEICNPJ.Leave, MyBase.Leave

        Dim c As Control = DirectCast(sender, Control)
        c.BackColor = Color.White

    End Sub

    Private Sub btnLimparTela_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimparTela.Click

        limpaFormEmpregador()

    End Sub


End Class